home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / grafica / anim2mpegb / an2mp next >
Text File  |  1999-01-01  |  3KB  |  93 lines
  1. echo "c*N"
  2. copy c:copy t:copy
  3. t:copy c:delete t:del
  4. assign Split: Split
  5. Requestfile >env:ANIMname TITLE="Choose anim to convert"
  6. if warn
  7.    echo >env:msg "Operation canceled....!"
  8.    skip end
  9. endif
  10. if not exists $ANIMname
  11.    echo >env:msg "File does not exist....!"
  12.    skip end
  13. endif
  14. Requestfile >env:ANIMdest TITLE="Choose destination path."
  15. if warn
  16.    echo >env:msg "Operation canceled....!"
  17.    skip end
  18. endif
  19. Requestchoice >env:mode2 "" "Select your priority." Quality Compression
  20. Requestchoice >env:mode "" "Do you want scaling ?" Yes No
  21. if $mode eq 1
  22.    SmartScale ask $ANIMname
  23.    if val $xout GT 352
  24.       eval >env:xout2 $xout/2 
  25.       echo >env:xout $xout2
  26.    endif
  27.    if val $yout GT 256
  28.       eval >env:yout2 $yout/2 
  29.       echo >env:yout $yout2
  30.    endif
  31.    echo "MP scale is $xout x $yout*N"
  32. endif
  33.  
  34. t:del >nil: split:#? env:#?out2
  35. buildanim $ANIMname Split: SPLIT VERBOSE
  36. echo "*N Animation successfully split.*N*N"
  37. list >t:conpics sort name split: lformat "echo >env:flast %s"
  38. execute t:conpics
  39.  
  40.  
  41.  
  42.  
  43. ECHO >T:an2mp.param "# This parameter file created by LOMBI"
  44.  
  45. if $mode2 eq 1
  46.    ECHO >>T:an2mp.param "PATTERN   IIIIIIIIIIIIIII"
  47. else
  48.    ECHO >>T:an2mp.param "PATTERN   IBBPBBPBBPBBPBB"
  49. endif
  50.  
  51. ECHO >>T:an2mp.param "OUTPUT    "$ANIMdest
  52.  
  53. ECHO >>T:an2mp.param "BASE_FILE_FORMAT   PPM"
  54. ECHO >>T:an2mp.param "GOP_SIZE    30"
  55. ECHO >>T:an2mp.param "SLICES_PER_FRAME   1" 
  56.  
  57. ECHO >>T:an2mp.param "PIXEL  HALF"
  58. ECHO >>T:an2mp.param "RANGE  10"
  59. ECHO >>T:an2mp.param "PSEARCH_ALG     LOGARITHMIC"
  60. ECHO >>T:an2mp.param "BSEARCH_ALG     CROSS2"
  61. ECHO >>T:an2mp.param "IQSCALE         8"
  62. ECHO >>T:an2mp.param "PQSCALE         10"
  63. ECHO >>T:an2mp.param "BQSCALE         25"
  64.  
  65. ECHO >>T:an2mp.param "REFERENCE_FRAME ORIGINAL"
  66. ECHO >>T:an2mp.param "FORCE_ENCODE_LAST_FRAME"
  67.  
  68. ECHO >>T:an2mp.param "INPUT_DIR       split"
  69. ECHO >>T:an2mp.param "INPUT"
  70. ECHO >>T:an2mp.param "**        [001-$flast]"
  71. ECHO >>T:an2mp.param "END_INPUT"
  72. ECHO >>T:an2mp.param "INPUT_CONVERT  **"
  73.  
  74.  
  75.  
  76.  
  77. t:copy convertMPimage t:cmi
  78. if $mode eq 1
  79.    list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm x $XOUT y $YOUT t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho  %s"
  80. else
  81.    list >t:ConPics sort name split: lformat "t:copy %s%s t:iff*Nt:CMI noprogress format ppm t:iff to t:ppm*Nt:copy t:ppm %s%s*Necho  %s"
  82. endif
  83. execute t:conpics
  84. t:del >nil: t:cmi t:conpics t:ppm t:iff env:mode env:mode2 env:flast
  85. stack 30000
  86. mpeg_encode t:an2mp.param
  87. echo >env:msg " Mpeg animation complete."
  88. lab end
  89. t:del >nil: split:#? t:an2mp.param t:copy env:ANIMname env:ANIMdest
  90. Requestchoice >nil: "" "$msg" OK
  91. t:del >nil: env:msg env:xin env:yin env:xout env:yout env:xinh env:din t:del
  92. endcli
  93.